﻿Public Class Form1

    Private Sub run_Click(sender As System.Object, e As System.EventArgs) Handles run.Click
        Dim processList() As Process

        processList = Process.GetProcessesByName("sidebar")
        For Each proc As Process In processList
            If MsgBox("Terminate " & proc.ProcessName & "?", MsgBoxStyle.YesNo, "Terminate?") = MsgBoxResult.Yes Then
                proc.Kill()
            End If
        Next
        Process.Start("sidebar.exe")
        My.Computer.Audio.Play("C:\Windows\Media\tada.wav", AudioPlayMode.WaitToComplete)
    End Sub

    Private Sub cancel_Click(sender As System.Object, e As System.EventArgs) Handles cancel.Click
        Close()
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub About_Click(sender As System.Object, e As System.EventArgs) Handles About.Click
        aboutform.Show()
    End Sub
End Class
